home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / kasim / 04 / setup.exe / frpdf095.tcl < prev    next >
Encoding:
Text File  |  2000-05-31  |  28.7 KB  |  869 lines
  1. #!/bin/s    
  2. # the next line restarts using wish \
  3. exec wish "$0" "$@"
  4.  
  5. # FreePDF -- 
  6. # This script calls GhostScript to convert the
  7. # PS (PostScript) input file into a PDF on Windows 9x.  
  8. #
  9. # Free PDF is used as part of 
  10. # a process.  This process enables one to Print to a special 
  11. # printer from any Windows application and 
  12. # create output files in the output folder. 
  13. # in a PDF (Adobe's Portable Document Format) file, 
  14. # which is viewable using 
  15. # Adobe's Acrobat product among other programs.
  16. #
  17. # Limitations:
  18. # This version is Now Beta and close to release.
  19. # It has the location for the GhostScript
  20. # executable as "C:\Aladdin\gs6.01\bin\gswin32c.exe" ,
  21. # and the location for the Acrobat Reader 
  22. # executable as 
  23. # "C:\Program Files\Adobe\Acrobat 4.0\Reader\AcroRd32.exe" ,
  24. # These can be overriden by using the Config Screen
  25. # and clicking on the links for the files or by 
  26. # editting the file "FREEPDF.INI"
  27. # in the FreePDF Directory
  28. #
  29. # From version 0.28 on you have the 'Save PDF as' button
  30. # which allows you to place the output PDF file 
  31. # in whatever folder with whatever name you'd like. 
  32. # FreePDF will remember the folder and output name
  33. # from the last time it was used.
  34. #
  35. # This program requires 2 parameters.
  36. # The 1st is ignored as are any past the 2cnd.
  37. # The second is the only one used 
  38. # and should contain the full path and filename 
  39. # of the Input PS temporary file to be converted.
  40. # to a PDF.
  41. # This is fine as REDRUN handles this
  42. # Open the file 
  43. # C:\freepdf\dochtml\freepdf.htm for full details
  44. #
  45. # It is intended to be used in conjunction with
  46. #
  47. # RedMon (Printer port REDirection Monitor) 
  48. # from Ghostgum Software Pty Ltd.,
  49. # and GhostScript from Aladdin Enterprises.
  50. # The setup for this whole process is involved.
  51. # Open the file 
  52. # C:\freepdf\dochtml\freepdf.htm
  53. # in Internet explorer for full details
  54. #
  55. # FreePDF is distributed under the terms of the 
  56. # ALADDIN FREE PUBLIC LICENCE
  57. # and is Copyright (C) 2000, BMRWare. All rights reserved.
  58. # See the ASCII file license in this directory for details.
  59. # Need "Program handles Output" on RPT1 setup
  60. #
  61. # RedMon (Printer port REDirection Monitor) 
  62. # is Copyright (C) 1997-1999, Ghostgum Software Pty Ltd.
  63. # GhostScript is 
  64. # Copyright (C) 1994, 1995, 1997, 1998 Aladdin Enterprises,
  65. #   Menlo Park, California, U.S.A. All rights reserved.
  66. # 
  67. # RCS: @(#) $Id: FreePDF,v 0.95 2000/05/31 18:23:30 Rhodes Exp $
  68.  
  69. #----------------------------------------------------------------
  70. # BEFORE RELEASE MAKE SURE TO DO THE FOLLOWING
  71. #----------------------------------------------------------------
  72. # 1 - Set the 'testing' variable to 0
  73. #----------------------------------------------------------------
  74.  
  75. # Version Notes
  76. #+----+----------+------------------------------------------------------------+
  77. #+Ver |MM/DD/YYYY|Description                                                 +
  78. #+----+----------+------------------------------------------------------------+
  79. #+0.15|04/01/2000| First version just calls GhostScript                       +
  80. #+----+----------+------------------------------------------------------------+
  81. #+0.20|04/02/2000| Working on Parm madness Need Parm 2!                       +
  82. #+----+----------+------------------------------------------------------------+
  83. #+0.21|04/02/2000| Make call to gswin32.exe Writes "C:\WINDOWS\\Start Menu    +
  84. #+    |          | Writes "C:\WINDOWS\Start Menu\Output.pdf'                  +
  85. #+----+----------+------------------------------------------------------------+
  86. #+0.22|04/03/2000| Variablizing the hardcoded paths and program names         +                       
  87. #+    |          | Added buttons to View Output and Exit                      +
  88. #+    |          | Next will make them configurable                           +
  89. #+----+----------+------------------------------------------------------------+
  90. #+0.23|04/02/2000| Added See Command Button moved screen text around          +
  91. #+----+----------+------------------------------------------------------------+
  92. #+0.24|04/04/2000| Removed Acrobat save as tip and added adobe coppyright     +
  93. #+----+----------+------------------------------------------------------------+
  94. #+0.27|04/05/2000| Added Make PDF, About and disabled Configure buttons       +
  95. #+----+----------+------------------------------------------------------------+
  96. #+0.28|04/06/2000| Added ini file variables, Enabled Configure and            +
  97. #+    |          | renamed 'Make pdf' to 'Save PDF as..' buttons              +
  98. #+----+----------+------------------------------------------------------------+
  99. #+0.30|04/07/2000| Added check that ini file exits and create if needed       +
  100. #+    |          | FreePDF also now saves and uses the settings from last time+
  101. #+----+----------+------------------------------------------------------------+
  102. #+0.31|04/23/2000| Changed defaults for Aladdin directory                     +
  103. #+----+----------+------------------------------------------------------------+
  104. #+0.32|04/24/2000| Revamped Config Screen!  Added Browse Button in Config     +
  105. #+    |          | for Finding GhostScript PDF Converter and PDF Viewer!      +
  106. #+    |          | Added Automatic Copy to Clipboard of PDF path and name     +
  107. #+    |          | of the created PDF upon success                            +
  108. #+    |          | Added Open PS for selecting PS file when bad parms passed  +
  109. #+----+----------+------------------------------------------------------------+
  110. #+0.33|05/12/2000| Changed Title in Open file Dialog box for pdfViewer        +
  111. #+----+----------+------------------------------------------------------------+
  112. #+0.87|05/19/2000| First Beta Release  Small bugs Squashed!                   +
  113. #+----+----------+------------------------------------------------------------+
  114. #+0.94|05/26/2000| Added Checkbox Options to Config screen for                +
  115. #+    |          | "Show Save as Dialog Automatically",                       +
  116. #+    |          | "Launch PDF Viewer Automatically After Conversion" and     +
  117. #+    |          | "Auto-Exit FreePDF After PDFViewer Close"                  +
  118. #+    |          |About box is now real window also instead of just Dialog Box+
  119. #+----+----------+------------------------------------------------------------+
  120. #+0.95|05/31/2000| Added new Checkbox Options to Config screen for            +
  121. #+    |          | "Remind to close PDFViewer                                 +
  122. #+----+----------+------------------------------------------------------------+
  123. #
  124. # List of things to do, future plans and ideas
  125. #+----------------------------------------------------------------------------+
  126. #  Check content of file for PS header and Abort if absent
  127. #  Log File
  128. #  Configurable Default Output Directory
  129. #  Configurable Default Output File Name
  130. #  'Save as..' Dialog to name the output
  131. #  Right Click 'Convert to PDF' Explorer Integration
  132. #  Optionally on Completion:
  133. #    Run Acrobat or GhostView to View the Output 
  134. #    Zip 'output.pdf' 
  135. #  Batch mode with
  136. #    Watched Input and Output Folders
  137. #    Delete Input PS file after Successful PDF Creation Option
  138. #  Update Checker and Downloader
  139. #  Minimize to System Tray?
  140. #  Installer and UNInstaller
  141. #+----------------------------------------------------------------------------+
  142.  
  143. # Create the window ('.' is the main window, 
  144. #   'FreePDF v n.nn' is the title)
  145. #----------------------------------------------------------------
  146.  set pgmName "FreePDF"
  147.  set ver "v0.95 Beta"
  148.  set asofdate "05/31/2000"
  149.  wm title . "$pgmName $ver"
  150. # toplevel .
  151.  
  152. #----------------------------------------------------------------
  153. # Testing Variable  
  154. #----------------------------------------------------------------
  155. # IMPORTANT SET TO ZERO BEFORE RELEASE!!!
  156. #----------------------------------------------------------------
  157. # 0 for release 
  158. #    - Suppresses both testing messages 
  159. #    - Suppresses 'package require' commands.
  160. #    FREEWRAP provides this and does not work if the
  161. #    the 'package require' command is issued!
  162. # 1 for testing (Like production)
  163. #    - no messages
  164. # 2 for testing 
  165. #    - all messages turned on 
  166. #    - does issues package require command
  167. #----------------------------------------------------------------
  168. #  Note: Copies of these variables may be retrieved by procedures 
  169. #  using the 'upvar" command
  170. #----------------------------------------------------------------
  171.  eval destroy [winfo child .]
  172.  set testing 0
  173.  set convertflag 0
  174.  set changeflag 0
  175.  set errorflag 0
  176.  
  177. # RedRun actually gives us the name of the file in the second
  178. # parameter!  Don't know why so instead of 0 (first parameter) 
  179. # we want 1 (second parameter) in lindex!
  180.  set parm1 [lindex $argv 1]
  181.  
  182. # You can uncomment the set just below to see the actual 
  183. # parameter list sent by RedRun
  184. # set parm1 $argv
  185.  
  186. # FreePDF Variables
  187. #----------------------------------------------------------------
  188. # These are default values in case freepdf.ini doesn't
  189. # exist.  If it does exist the incoming values from the ini file
  190. # will overlay these
  191.   set pdfOutFile "Output.pdf"
  192.   set pdfIniFile "freepdf.ini"
  193.   set pdfConverter "C:/Aladdin/gs6.01/bin/gswin32c.exe"
  194.   set pdfViewer "C:/Program Files/Adobe/Acrobat 4.0/Reader/AcroRd32.exe"
  195.  
  196. # Dynamically retrieve pdfOutDir
  197. #----------------------------------------------------------------
  198.   set pdfOutDir         [file dirname [info nameofexecutable]]/
  199.   set pdfIniFile        $pdfOutDir$pdfIniFile
  200.   set pdfSaveAsImmed    0
  201.   set pdfAutoView       1
  202.   set pdfRemindPdfView  1
  203.   set pdfQuickExit      0
  204.  
  205. #*****************************************************************
  206. #*****************************************************************
  207. # U S E R   D E F I N E D    PROCEDURES FOLLOW
  208. #*****************************************************************
  209. #*****************************************************************
  210.  
  211. #-----------------------------------------------------------------
  212. # OpenPS - Gets the name of the input PostScript File
  213. #          Only is shown if no parameter were passed which they
  214. #          should be!
  215. #-----------------------------------------------------------------
  216. proc OpenPS {  } {
  217.   global pgmName  \
  218.          ver      \
  219.          testing  \
  220.          errorflag\
  221.          text1    \
  222.          parm1
  223.  
  224.   set psDir "C:/"
  225.  
  226.     #   Type names        Extension(s)    Mac File Type(s)
  227.     #
  228.     #---------------------------------------------------------
  229.     set types {
  230.     {"PS files"        {.ps }    }
  231.     {"All files"        *}
  232.               }
  233.  
  234.   set file [tk_getOpenFile\
  235.             -filetypes $types\
  236.             -initialdir $psDir\
  237.             -defaultextension .ps\
  238.             -parent .\
  239.             -title "Where is the PostScript Input?"
  240.            ]
  241.   if [string compare $file ""] {
  242.     set parm1 $file
  243.     set text1 "Input file to be converted to PDF is \n<$parm1>\n
  244. Click the 'Save PDF as..' button, to create your PDF"  
  245.     set errorflag 0
  246.   }
  247. }
  248.  
  249. #-----------------------------------------------------------------
  250. # SaveAs - Get Name for Output file
  251. #-----------------------------------------------------------------
  252. proc SaveAs {  } {
  253.   global pgmName     \
  254.          ver         \
  255.          testing     \
  256.          pdfOutDir   \
  257.          pdfOutFile  \
  258.          pdfConverter\
  259.          pdfViewer   \
  260.          changeflag
  261.  
  262.     #   Type names        Extension(s)    Mac File Type(s)
  263.     #
  264.     #---------------------------------------------------------
  265.     set types {
  266.     {"PDF files"        {.pdf }    }
  267.     {"All files"        *}
  268.               }
  269.   set file [tk_getSaveFile\
  270.             -filetypes $types\
  271.             -initialdir $pdfOutDir\
  272.             -initialfile $pdfOutFile\
  273.             -defaultextension .pdf\
  274.             -parent .\
  275.             -title "$pgmName - Save PDF as "
  276.            ]
  277.   if [string compare $file ""] {
  278.     set pdfOutDir  [file dirname $file]/
  279.     set pdfOutFile [file tail $file]
  280.     set changeflag 1
  281.   } else {
  282.     set changeflag 0
  283.   }
  284. }
  285.  
  286. #-----------------------------------------------------------------
  287. # MakePDF - Does 'Save as' and calls GhostScript to convert to pdf
  288. #-----------------------------------------------------------------
  289. proc MakePDF {  } {
  290. # remember to check for filein's existence
  291. # and that gswin32 exists!
  292.    global pgmName     \
  293.           ver         \
  294.           testing     \
  295.           pdfConverter\
  296.           pdfViewer   \
  297.           pdfOutDir   \
  298.           pdfOutFile  \
  299.           text1       \
  300.           text2       \
  301.           parm1       \
  302.           changeflag  \
  303.           pdfAutoView
  304.  
  305.  
  306.   if [expr $testing < 1] {
  307.      set oldfile $pdfOutDir$pdfOutFile
  308.      SaveAs
  309. #      changeflag will be 0 if the user hit 'Cancel' in 'Save PDF as'!
  310. #      changeflag will be 1 if the user hit 'Ok'     in 'Save PDF as'!
  311.      if [expr $changeflag] {
  312.        WriteIni
  313.        update
  314.        exec $pdfConverter -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite\
  315. -sOutputFile=$pdfOutDir$pdfOutFile  -c save pop -f $parm1
  316.        set text1 "Your PDF is called $pdfOutFile in the\n$pdfOutDir Folder." 
  317.        set text2 "Click on The 'View PDF' button Above
  318. To Open it in Acrobat Reader.
  319. "
  320. #*****************************************************************
  321. #**     - v0.31 added copy to clipboard of PDF path and name
  322.        clipboard clear
  323.        clipboard append $pdfOutDir$pdfOutFile
  324. #*****************************************************************
  325.        if {$pdfAutoView > 0} {
  326.          update
  327.          CallPdfViewer
  328.        }
  329.      }
  330.    }
  331. }
  332.    
  333. #-----------------------------------------------------------------
  334. # CallPdfViewer - Just Views the PDF output 
  335. #-----------------------------------------------------------------
  336. proc CallPdfViewer {  } {
  337.   global pgmName          \
  338.          ver              \
  339.          testing          \
  340.          pdfRemindPdfView \
  341.          pdfQuickExit     \
  342.          pdfViewer        \
  343.          pdfOutDir        \
  344.          pdfOutFile
  345.  
  346.  
  347.   if {$pdfRemindPdfView > 0} {
  348.     tk_messageBox\
  349.         -icon info -type ok \
  350.         -title "$pgmName" \
  351.         -message \
  352. "Make sure you Remember to Close 
  353. the PDFViewer! Don't just minimize it!"
  354.     }
  355.  
  356.   exec "$pdfViewer" $pdfOutDir$pdfOutFile
  357.  
  358.   if {$pdfQuickExit > 0} {
  359.     update
  360.     destroy .
  361.   }
  362.  
  363. }
  364.  
  365. #-----------------------------------------------------------------
  366. # ReadIni - Read Ini File and set options
  367. #-----------------------------------------------------------------
  368. proc ReadIni {  } {
  369.   global pgmName       \
  370.          ver           \
  371.          testing       \
  372.          pdfOutDir     \
  373.          pdfOutFile    \
  374.          pdfIniFile    \
  375.          pdfConverter  \
  376.          pdfViewer     \
  377.          pdfSaveAsImmed\
  378.          pdfAutoView   \
  379.          pdfQuickExit  \
  380.          pdfRemindPdfView
  381.  
  382.   set existsFlag [file exists $pdfIniFile]
  383. ##  tk_messageBox -icon info -type ok -title "$pgmName $ver ReadIni" \
  384. ##       -message "existsFlag is $existsFlag"
  385.   if  {$existsFlag > 0} \
  386.   {
  387.     # Read pdfIniFile
  388.     set read ""
  389.     set readini [open $pdfIniFile r]
  390.     while {[gets $readini read] > -1} {
  391.       set l [string length $read]
  392.       set i [string first = $read]
  393.       if {$i >= 0}  \
  394.        {
  395.         set varname  [string range $read 0 [expr $i-1] ]
  396.         set varvalue [string range $read [expr $i+1]  $l]
  397. ##        tk_messageBox -icon info -type ok -title "$pgmName $ver Configure" \
  398. ##          -message "$pgmName $ver\t line read was\n $read\nvarname is \t$varname\nvarvalue is \t$varvalue\n"
  399.         switch $varname\
  400.             {
  401.               {pdfOutDir}
  402.                 {set pdfOutDir $varvalue
  403.                 }
  404.               {pdfOutFile}
  405.                 {set pdfOutFile $varvalue
  406.                 }
  407.               {pdfConverter}
  408.                 {set pdfConverter $varvalue
  409.                 }
  410.               {pdfViewer}
  411.                 {set pdfViewer $varvalue
  412.                 }
  413.               {pdfSaveAsImmed}
  414.                 {set pdfSaveAsImmed $varvalue
  415.                 }
  416.               {pdfAutoView}
  417.                 {set pdfAutoView $varvalue
  418.                 }
  419.               {pdfQuickExit}
  420.                 {set pdfQuickExit $varvalue
  421.                 }
  422.               {pdfRemindPdfView}
  423.                 {set pdfRemindPdfView $varvalue
  424.                 }
  425.  
  426.             }  ;# End Switch
  427.        }  ;# End if
  428.     }
  429.     close $readini
  430.   } else {
  431. ##      tk_messageBox -icon info -type ok -title "$pgmName $ver ReadPdfIni" \
  432. ##         -message "$pgmName - ReadpdfIni pdfIniFile \n$pdfIniFile\n Not found "
  433.       WriteIni 
  434.   } 
  435. } 
  436.  
  437.  
  438. #-----------------------------------------------------------------
  439. # WriteIni - Writes the FreePDF variables to ini file
  440. #-----------------------------------------------------------------
  441. proc WriteIni {  } {
  442.   global pgmName       \
  443.          ver           \
  444.          testing       \
  445.          pdfOutDir     \
  446.          pdfOutFile    \
  447.          pdfIniFile    \
  448.          pdfConverter  \
  449.          pdfViewer     \
  450.          pdfSaveAsImmed\
  451.          pdfAutoView   \
  452.          pdfQuickExit  \
  453.          pdfRemindPdfView
  454.  
  455. # Write pdfIniFile
  456. set writeini [open $pdfIniFile w]
  457. puts $writeini "<freepdf.ini>"
  458. puts $writeini "pdfOutDir=$pdfOutDir"
  459. puts $writeini "pdfOutFile=$pdfOutFile"
  460. puts $writeini "pdfConverter=$pdfConverter"
  461. puts $writeini "pdfViewer=$pdfViewer"
  462. puts $writeini "pdfSaveAsImmed=$pdfSaveAsImmed"
  463. puts $writeini "pdfAutoView=$pdfAutoView"
  464. puts $writeini "pdfRemindPdfView=$pdfRemindPdfView"
  465. puts $writeini "pdfQuickExit=$pdfQuickExit"
  466. close $writeini
  467. }
  468.  
  469. #-----------------------------------------------------------------
  470. # Configure - Sets paths and executable names
  471. #-----------------------------------------------------------------
  472. proc Configure {  } {
  473.   global pgmName          \
  474.          ver              \
  475.          testing          \
  476.          pdfOutDir        \
  477.          pdfOutFile       \
  478.          pdfIniFile       \
  479.          pdfConverter     \
  480.          pdfViewer        \
  481.          pdfSaveAsImmed   \
  482.          pdfAutoView      \
  483.          pdfQuickExit     \
  484.          pdfRemindPdfView \
  485.          asofdate
  486.  
  487.   WriteIni
  488.  
  489.   set w .config
  490.   catch {destroy $w}
  491.   toplevel $w
  492.   wm title $w "$pgmName Configure"
  493.  
  494.   text $w.text -yscrollcommand "$w.scroll set" -setgrid true \
  495.      -width 54 -height 34  -wrap word -background #C0C0C0
  496.   scrollbar $w.scroll -command "$w.text yview"
  497.   pack $w.scroll -side right -fill y
  498.   pack $w.text -expand yes -fill both
  499.  
  500. #    Set up display styles.
  501.  
  502. #  set bold "-foreground #ffff66 -relief raised -borderwidth 1 -underline 0"
  503.   set bold   "-foreground #005000 -relief flat -underline 1 -borderwidth 0"
  504.   set normal "-foreground #0000ff -relief flat -underline 1"
  505.  
  506.   foreach tag {d1 d2 d3} {
  507.     $w.text tag configure $tag -underline on -foreground #0000ff
  508.   }
  509. #     Add text to widget.
  510.  
  511.   checkbutton $w.saveAsImmed -text "Show Save as Dialog Automatically"\
  512.                     -variable pdfSaveAsImmed -relief flat -command "WriteIni"
  513.   checkbutton $w.autoView    -text "Launch PDF Viewer Automatically After Conversion"\
  514.                     -variable pdfAutoView    -relief flat -command "WriteIni"
  515.   checkbutton $w.remindPdfView  -text "Remind me to Close PDFViewer     "\
  516.                     -variable pdfRemindPdfView  -relief flat -command "WriteIni"
  517.   checkbutton $w.quickExit   -text "Auto-Exit FreePDF After PDFViewer Close"\
  518.                     -variable pdfQuickExit   -relief flat -command "WriteIni"
  519.  
  520. # --- Do the insert into the text -----
  521.   $w.text insert 0.0 \
  522. "$pgmName $ver\tCurrent as of $asofdate \n
  523. Greetings from the ZipGuy! \n
  524. Current settings:
  525. File executed:\t'[info nameofexecutable]'
  526. pdfIniFile: \t'$pdfIniFile'
  527. pdfOutDir:  \t'$pdfOutDir'
  528. pdfOutFile: \t'$pdfOutFile'
  529.  
  530.  
  531. Click on The Items below to change them!"
  532.  
  533.   $w.text insert end \n\n
  534.   $w.text insert end \
  535. "pdfConverter\n'"
  536.   $w.text insert end \
  537. "$pdfConverter" d1
  538.   $w.text insert end '\n\n
  539.  
  540.   $w.text insert end \
  541. "pdfViewer   \n'"
  542.   $w.text insert end \
  543. "$pdfViewer" d2 
  544.   $w.text insert end '\n\n
  545.  
  546.   $w.text window create end -window $w.saveAsImmed 
  547.   $w.text window create end -window $w.autoView
  548.   $w.text window create end -window $w.remindPdfView
  549.   $w.text window create end -window $w.quickExit
  550.   $w.text insert end \n
  551.  
  552.   $w.text insert end \n\t\t\t
  553.   $w.text insert end \
  554. "Exit Config" d3
  555.  
  556.   $w.text insert end "\n
  557. \t\t       Zipguy says 'Enjoy!' ;-)"
  558.  
  559.  
  560.   foreach tag {d1 d2 d3} {
  561.     $w.text tag bind $tag <Any-Enter> "$w.text tag configure $tag $bold"
  562.     $w.text tag bind $tag <Any-Leave> "$w.text tag configure $tag $normal"
  563.   }
  564.  
  565.   $w.text tag bind d1 <1> {ConfigurepdfConverter}
  566.   $w.text tag bind d2 <1> {ConfigurepdfViewer}
  567.   $w.text tag bind d3 <1> "destroy $w"
  568.  
  569.  
  570.   $w.text mark set insert 0.0
  571.   $w.text configure -state disabled
  572.  
  573. }
  574.  
  575. #-----------------------------------------------------------------
  576. # ConfigurepdfConverter - Sets paths and executable name 
  577. #                         of pdfConverter
  578. #-----------------------------------------------------------------
  579. proc ConfigurepdfConverter {  } {
  580.   global pgmName     \
  581.          ver         \
  582.          testing     \
  583.          pdfConverter
  584.  
  585.   set gsConverterDir  [file dirname $pdfConverter]/
  586.   set gsConverterFile [file tail $pdfConverter]
  587.  
  588.     #   Type names        Extension(s)    Mac File Type(s)
  589.     #
  590.     #---------------------------------------------------------
  591.     set types {
  592.     {"EXE files"        {.exe }    }
  593.     {"All files"        *}
  594.               }
  595.  
  596.  
  597.   set file [tk_getOpenFile\
  598.             -filetypes $types\
  599.             -initialdir $gsConverterDir\
  600.             -initialfile $gsConverterFile\
  601.             -defaultextension .exe\
  602.             -parent .config\
  603.             -title "Locate 'gswin32c.exe' - Ghostscript Executable"
  604.            ]
  605.   if [string compare $file ""] {
  606.     set pdfConverter $file
  607.     WriteIni
  608.     destroy .config
  609.   } else {
  610.   }
  611. }
  612.  
  613.  
  614. #-----------------------------------------------------------------
  615. # ConfigurepdfViewer - Sets paths and executable name 
  616. #                      of pdfViewer
  617. #-----------------------------------------------------------------
  618. proc ConfigurepdfViewer {  } {
  619.   global pgmName  \
  620.          ver      \
  621.          testing  \
  622.          pdfViewer
  623.  
  624.   set pdfViewerDir  [file dirname $pdfViewer]/
  625.   set pdfViewerFile [file tail $pdfViewer]
  626.  
  627.     #   Type names        Extension(s)    Mac File Type(s)
  628.     #
  629.     #---------------------------------------------------------
  630.     set types {
  631.     {"EXE files"        {.exe }    }
  632.     {"All files"        *}
  633.               }
  634.  
  635.   set file [tk_getOpenFile\
  636.             -filetypes $types\
  637.             -initialdir $pdfViewerDir\
  638.             -initialfile $pdfViewerFile\
  639.             -defaultextension .exe\
  640.             -parent .config\
  641.             -title "Locate 'AcroRd32.exe' - PDFViewer Executable"
  642.            ]
  643.   if [string compare $file ""] {
  644.     set pdfViewer $file
  645.     WriteIni
  646.     destroy .config
  647.   } else {
  648.   }
  649. }
  650.  
  651. #-----------------------------------------------------------------
  652. # SeeCommand -Shows the command issued to GhostScript 
  653. #-----------------------------------------------------------------
  654. proc SeeCommand {  } {
  655.   global pgmName     \
  656.          ver         \
  657.          testing     \
  658.          pdfConverter\
  659.          pdfOutDir   \
  660.          pdfOutFile  \
  661.          parm1       \
  662.  
  663.   tk_messageBox\
  664.       -icon info -type ok \
  665.       -title "$pgmName $ver" \
  666.       -message \
  667.                   "$pgmName $ver - Command issused to convert PS to PDF was: 
  668. $pdfConverter
  669. -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -c save pop
  670. -sOutputFile='$pdfOutDir$pdfOutFile' 
  671. -f $parm1 \n
  672. (Aren't You Glad you didn't have to type it in?)
  673. If you're curious, see the GhostScript Documentation 
  674. for what all those wacky switches do.
  675.  
  676. PDF (Portable Doument Format) is 
  677. Copyright ⌐2000 Adobe Systems Incorporated."
  678. }
  679.  
  680.  
  681.  
  682. #-----------------------------------------------------------------
  683. # About - Just Displays the About box - FreePDF information
  684. #-----------------------------------------------------------------
  685. proc About {  } {
  686.   global pgmName     \
  687.          ver         \
  688.          testing     \
  689.          pdfOutDir   \
  690.          pdfOutFile  \
  691.          pdfConverter\
  692.          pdfViewer   \
  693.          asofdate
  694.  
  695.  
  696.  
  697.   set w .about
  698.   catch {destroy $w}
  699.   toplevel $w
  700.   wm title $w "$pgmName $ver About"
  701.  
  702.   text $w.text -yscrollcommand "$w.scroll set" -setgrid true \
  703.      -width 70 -height 25 -wrap word -background #C0C0C0
  704.   scrollbar $w.scroll -command "$w.text yview"
  705.   pack $w.scroll -side right -fill y
  706.   pack $w.text -expand yes -fill both
  707.  
  708. #    Set up display styles.
  709.  
  710. #  set bold "-foreground #ffff66 -relief raised -borderwidth 1 -underline 0"
  711.   set bold   "-foreground #005000 -relief flat -underline 1 -borderwidth 0"
  712.   set normal "-foreground #0000ff -relief flat -underline 1"
  713.  
  714.   foreach tag {d1 d2 d3} {
  715.     $w.text tag configure $tag -underline on -foreground #0000ff
  716.   }
  717. #     Add text to widget.
  718.  
  719. # --- Do the insert into the text -----
  720.   $w.text insert 0.0 \
  721. "Recent News:
  722. v0.95 05/31/2000 Added Another Checkbox Option to Config screen for
  723.                  'Remind me to Close PDFViewer' Default yes                       
  724. v0.94 05/26/2000 Added Checkbox Options to Config screen for Default no for all these
  725.                  'Show Save as Dialog Automatically',                        
  726.                  'Launch PDF Viewer Automatically After Conversion' and              
  727.                  'Exit FreePDF After PDFViewer Close' 
  728.                  About box is now a real window also instead of just Dialog Box
  729. v0.88 05/26/2000 Code Cleanup                                         
  730. v0.87 05/19/2000 First Beta Release. Small bugs Squashed!                                         
  731.  
  732. Still Working on the Update checker.. 
  733. For now look for the latest version yourself at
  734. \thttp://over.to/freepdf. 
  735.  
  736. Hope you like it! 
  737. E-Mail Feedback Comments to: freepdf@over.to
  738.  
  739. $pgmName is Copyright ⌐ 2000, BMRWare. All rights reserved.
  740. PDF (Portable Doument Format) is Copyright ⌐2000 Adobe Systems Incorporated.
  741. "
  742.   $w.text insert end "\n
  743. \t\t       Zipguy says 'Enjoy!' ;-)"
  744.  
  745.   button $w.exit\
  746.      -text "Exit"\
  747.      -command "destroy .about" -padx 0 -pady 0  
  748. ####  button $w.homepage\
  749. ####     -text "Homepage"\
  750. ####     -command "exec C://Progra~1//Intern~1//IEXPLORE.EXE http://over.to/freepdf" -padx 0 -pady 0  
  751. ####  pack $w.homepage    -side left -expand 1
  752.   pack $w.exit        -side left -expand 1
  753.  
  754.  
  755. }
  756.  
  757.  
  758.  
  759. #*****************************************************************
  760. #*****************************************************************
  761. #*****************************************************************
  762. # START OF MAIN CODE
  763. #*****************************************************************
  764. #*****************************************************************
  765. #*****************************************************************
  766.  
  767.    frame .buttons -relief raised -borderwidth 1
  768.    set f .buttons
  769.    pack $f\
  770.      -side top -fill x -pady 0m
  771. #  Want 2 paramters 
  772.  
  773. #   ----------------------------------------------------------------
  774. #   Create the View PDF, Show Command, 
  775. #   Configure, About and Exit Button
  776. #   ----------------------------------------------------------------
  777.     button $f.makePdf\
  778.        -text "Save PDF as.." \
  779.        -command "MakePDF" -padx 0 -pady 0
  780.     button $f.viewPdf\
  781.        -text "View PDF" \
  782.        -command "CallPdfViewer" -padx 0 -pady 0
  783.     button $f.configure\
  784.        -text "Configure" \
  785.        -command "Configure" -padx 0 -pady 0
  786.     button $f.seeCommand\
  787.        -text "GS Command"\
  788.        -command "SeeCommand" -padx 0 -pady 0
  789.     button $f.exit\
  790.        -text "Exit"\
  791.        -command "destroy ." -padx 0 -pady 0  
  792.     button $f.about\
  793.        -text "About"\
  794.        -command "About" -padx 0 -pady 0
  795.     pack $f.makePdf     -side left -expand 1
  796.     pack $f.viewPdf     -side left -expand 1
  797.     pack $f.configure   -side left -expand 1
  798.     pack $f.seeCommand  -side left -expand 1
  799.     pack $f.about       -side left -expand 1
  800.     pack $f.exit        -side left -expand 1
  801.  
  802. #   ----------------------------------------------------------------
  803. #   Create the Screen Text
  804. #   ----------------------------------------------------------------
  805.     frame .ftxt -relief sunken
  806.     frame .ftxt.ftxt1 
  807.     set f .ftxt.ftxt1
  808.     pack $f\
  809.        -side top -fill x -pady 0m
  810.     label $f.txtFile \
  811.        -textvariable text1 \
  812.        -anchor w  -justify left
  813.     set text1 "Input file to be converted to PDF is \n<$parm1>\n
  814. Click the 'Save PDF as..' button, to create your PDF"  
  815.     pack $f.txtFile\
  816.        -side left
  817.  
  818.     frame .ftxt.ftxt2 
  819.     set f .ftxt.ftxt2
  820.     pack $f\
  821.        -side top -fill x -pady 0m
  822.     label $f.txtButtonExp \
  823.        -textvariable text2 \
  824.        -anchor w -justify left
  825.     set text2 ""
  826.     pack $f.txtButtonExp\
  827.        -side left
  828.     pack $f\
  829.        -fill x -padx 0 -pady 0
  830.     pack .ftxt\
  831.        -side left
  832. #    if [expr $testing < 1] {
  833. #    } ;# End if
  834.  
  835.  if [expr $argc < 2] {
  836. #     getting here means not enough parms passed!
  837.     set errorflag         1
  838.     set pdfSaveAsImmed    0
  839.     set pdfAutoView       1
  840.     set pdfRemindPdfView  1
  841.     set pdfQuickExit      0
  842.     WriteIni
  843.     frame .ftxt.fparm 
  844.     set f .ftxt.fparm
  845.     label $f.labbad -text "$pgmName $ver - Error!
  846. Less than 2 Parameters Recieved!
  847. FreePDF Received the following - <$argv>\n
  848. Use the 'Open PS' button below to specify input PostScript file!"\
  849.         -anchor w 
  850.     pack $f.labbad\
  851.         -side top
  852.  
  853.     button $f.openPS\
  854.        -text "Pick Input PS" -command "OpenPS" -padx 0 -pady 0
  855.     pack $f.openPS -side bottom -expand 1
  856.     pack $f \
  857.         -fill x -padx 0 -pady 0
  858.  } 
  859.  
  860.     if {$errorflag < 1} {
  861.       ReadIni
  862.       if {$pdfSaveAsImmed > 0} {
  863.         update
  864.         MakePDF
  865.       }
  866.     }  
  867.     
  868.  
  869.